﻿Public Class frmPassword
    Dim frm As frmMain
    Private Sub btDongY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btDongY.Click
        Dim userName As String = frm.listNSD.Text
        userName = userName.Trim()
        Dim strCauLenh As String = "select * from tblUser where cast(pass as varchar(30))= " & txtOldPassword.Text & "and loginname = '" & userName & "'"
        If (XL_DULIEU.ThucHienLenh(strCauLenh) = False) Then
            MessageBox.Show("Mật khẩu cũ không đúng", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        End If

        'kiem tra xem password co giong nhau khong
        If (txtPassword.Text <> txtPassword2.Text) Then
            MessageBox.Show("Xác nhận mật khẩu không khớp", "Thông báo", MessageBoxButtons.OKCancel)
        Else
            'thay doi password
            'Dim strCauLenh As String = "exec sp_password '" & txtOldPassword.Text & "','" & txtPassword.Text & "','" & userName & "'"
            strCauLenh = "update tblUser set pass = cast('" & txtPassword.Text & "' as varbinary(30)) where loginname = '" & userName & "'"
            If (XL_DULIEU.ThucHienLenh(strCauLenh) = True) Then
                MessageBox.Show("Đổi mật khẩu  thành công!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
                'kiem tra neu nguoi thay doi password la nguoi dang  nhap thi thay doi lai cau ket noi
                'If (userName = sUserName) Then
                '    XL_DULIEU.GanCauLenhKetNoi(sUserName, txtPassword.Text)
                'End If
            Else
                MessageBox.Show("Đổi mật khẩu không thành công! Có thể password cũ không đúng", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        End If
        Me.Close()
    End Sub

    Private Sub btHuy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btHuy.Click
        Me.Close()
    End Sub

    Public Sub New(ByVal f As frmMain)

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        frm = f
    End Sub
End Class